home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc / FUNC47.INC < prev    next >
Encoding:
Text File  |  1985-06-15  |  512 b   |  18 lines

  1. { Get the current directory                                            }
  2.  
  3. FUNCTION Func47 (S, O, D : INTEGER) : BOOLEAN;
  4.  BEGIN
  5.   WITH Registers DO
  6.    BEGIN
  7.     AX:=((AX AND $00FF) OR ($47 SHL 8));
  8.     DX:=((DX AND $FF00) OR (D AND $00FF));
  9.     SI:=O;
  10.     DS:=S;
  11.     MSDOS (Registers);
  12.     IF (Flags AND $0001)=1 THEN
  13.      Func47:=TRUE
  14.     ELSE
  15.      Func47:=FALSE;
  16.    END;
  17.  END;
  18.